home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / BLACKBOX.EXE / aliases.ini next >
INI File  |  1997-02-26  |  5KB  |  103 lines
  1. [Aliases]
  2. n0=/op /mode # +ooo $$1 $2 $3
  3. n1=/dop /mode # -ooo $$1 $2 $3
  4. n2=/j /join #$$1
  5. n3=/p /part #
  6. n4=/n /names #$$1
  7. n5=/w /whois $$1
  8. n6=/k /kick # $$1
  9. n7=/q /query $$1
  10. n8=/hop /part # | /join #$$1
  11. n9=/send /dcc send $1 $2
  12. n10=/chat /dcc chat $1
  13. n11=/ping /ctcp $$1 ping
  14. n12=/massd {
  15. n13=  set %chan #
  16. n14=  set %i 1
  17. n15=  set %num 0
  18. n16=  :start
  19. n17=  set %user $opnick(%i,%chan)
  20. n18=  if (%user == $null) { raw -q mode # -oooooo %nick | echo 6 # The Mass Deop On # Is Complete! | unset %nick | unset %i | unset %chan | unset %num | halt }
  21. n19=  if (%user != $me) { set %nick %user %nick | if (%num == 6) { raw -q mode %chan -oooooo %nick | unset %nick | set %num 0 } }  
  22. n20=  inc %i 1 
  23. n21=  inc %num 1  
  24. n22=  goto start
  25. n23=}  
  26. n24=/massk {
  27. n25=  set %i 1
  28. n26=  :start
  29. n27=  set %nick $nick(%i,#)
  30. n28=  if (%nick == $null) { echo 6 # The Kick On # Is Complete! | halt }
  31. n29=  if (%nick != $me) { kick # %nick The Mass Kick }
  32. n30=  inc %i 1  
  33. n31=  goto start  
  34. n32=}
  35. n33=/backwards {
  36. n34=  unset %backtext
  37. n35=  if ($1 == -d) { 
  38. n36=    set %backtext ºá
  39. n37=    set %text $remove(*1,$left(3,*1))
  40. n38=  }
  41. n39=  else { %text = *1 }
  42. n40=  %space = $chr(32)
  43. n41=  %i = $len(%text) + 1
  44. n42=  :next
  45. n43=  dec %i 1
  46. n44=  if %i == 0 { say %backtext | halt }
  47. n45=  %thischar = $mid(%i,1,%text)
  48. n46=  if %thischar == %space {
  49. n47=    %thislet = á
  50. n48=    if %backtext == $null { set %backtext %thislet | goto next }
  51. n49=    else { set %backtext %backtext $+ %thislet | goto next }
  52. n50=  }
  53. n51=  if %backtext == $null { set %backtext %thischar | goto next }
  54. n52=  else { set %backtext %backtext $+ %thischar | goto next }
  55. n53=}
  56. n54=counter %temp = $ctime - $$1 | return %temp
  57. n55=leet %leettext = $upper(*1) | %leettext = $replace(%leettext,A,a) | %leettext = $replace(%leettext,E,e) | %leettext = $replace(%leettext,I,i) | %leettext = $replace(%leettext,O,o) | %leettext = $replace(%leettext,U,u) | %leettext = $replace(%leettext,Y,y) | say %leettext
  58. n56=altcaps {
  59. n57=  %text = "" | %rand = $rand(1,2) | %i = 0 | :next | inc %i
  60. n58=  if (%i > $len(*1)) { say %text | halt } | if ($asc($mid(%i,1,*1)) == 32) { %text = %text $+ á | goto next }
  61. n59=  if (%rand == 1) { 
  62. n60=    if (%i == 1) { %text = $upper($mid(%i,1,*1)) | set %thing 1 | goto next } | else { 
  63. n61=    if (%thing == 1) { %text = %text $+ $lower($mid(%i,1,*1)) | set %thing 2 | goto next } | if (%thing == 2) { %text = %text $+ $upper($mid(%i,1,*1)) | set %thing 1 | goto next } } 
  64. n62=  }
  65. n63=  elseif (%rand == 2) { 
  66. n64=    if (%i == 1) { %text = $lower($mid(%i,1,*1)) | set %thing 1 | goto next } | else { 
  67. n65=    if (%thing == 1) { %text = %text $+ $upper($mid(%i,1,*1)) | set %thing 2 | goto next } | if (%thing == 2) { %text = %text $+ $lower($mid(%i,1,*1)) | set %thing 1 | goto next } } 
  68. n66=  }
  69. n67=}
  70. n68=/check {
  71. n69=  :top
  72. n70=  inc %i
  73. n71=  if ($nick(%i,$$1) == $null) { unset %i %idle %t | halt }
  74. n72=  else {
  75. n73=    set %t $readini idle.ini idlekick $nick(%i,$1)
  76. n74=    if (%t == $null) { goto top }
  77. n75=    else {
  78. n76=      %idle = $ctime - %t
  79. n77=      if (%idle > 1800) && ($nick(%i,$$1) !isop $$1) && ($nick(%i,$$1) != $me) && ($nick(%i,$$1) != W) && ($nick(%i,$$1) != X) {
  80. n78=        kick $1 $nick(%i,$1) You've been sitting here for a half hour, 4Wake up!!
  81. n79=        remini idle.ini idlekick $nick(%i,$1)
  82. n80=        goto top 
  83. n81=      }
  84. n82=      else { goto top }
  85. n83=    }
  86. n84=  }
  87. n85=}
  88. n86=/bots {
  89. n87=  if ( x ison #) { %bot = X@channels.undernet.org } 
  90. n88=  if ( w ison #) { %bot = W@channels2.undernet.org }
  91. n89=  echo 4 $active ( $+ %bot $+ ) is the current Bot!
  92. n90=}
  93. n91=dl  { if ($level($address($1,0)) = $null) { return null } | return $remove($level($address($1,0)),$chr(44)) }
  94. n92=badword { %i = 2 | :w | %word = $ [ $+ [ %i ] ] | if (%word isin %parms) { return true } | elseif (%i <= $1) { inc %i 1 | goto w } | return false }
  95. n93=dscript { return (▀úσóK▀°X By Deimus) }
  96. n94=vote  { if (%subject = $null) { echo 4 $me No vote issue ! |  halt } | describe %votechan needs everyone to Vote Whether %subject %votenick , yes or no ? | %yes = 0 | %no = 0 | .enable #vote }
  97. n95=endvote {
  98. n96=  if (($me isop %votechan) && (%rem = yes)) { if (%yes > %no) { ban -u60 %votechan %votenick 3 | .timer 1 2 kick %votechan %votenick Poll reveals %yes for yes , and %no for NO | goto end } | if (%yes = %no) { describe %votechan Poll reveals %yes for yes, and %no for no , a tie!!!! Darn and i wanted to KICK %votenick... | goto end } | if (%yes < %no) { describe %votechan Poll reveals %yes for yes, and %no for no , %votenick stays... | goto end } }
  99. n97=  if (($me !isop %votechan) && (%rem = yes)) {  if (%yes > %no) { describe %votechan I would kick %votenick , Poll reveals %yes for yes , and %no for no , but I am not opped =) | goto end } | if (%yes = %no) { describe %votechan Poll reveals %yes for yes, and %no for no , a tie , Darn and I wanted to kick =-( , to bad i am not opped =-) | goto end } | if (%yes < %no) { echo 4 $me Poll reveals %yes for yes, and %no for no .. Didn't matter though I am not opped ... | goto end } }
  100. n98=  describe %votechan Vote reveals %yes for yes , and %no for NO ! 
  101. n99=  :end | unset %votechan %subject %yes %no %votesite %votenick %rem | .disable #vote | set %game off | set %vote No |  halt 
  102. n100=}
  103.